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13-Sep-1984 25:45:44 VA 


MODULE dcx_subs ( 


LANGUAGE (BL! ) ! Miscellaneous routines 
IDENT = "06-600" 


~ 


MEwn— 


BEGIN 


oo 
oO 


' 
MESSE IT ISITE LITT T TT TI TTT TTT TPT iret rrr iti iii iii iirc iii iii iiiititiiiig 


SS 


a 

3 4 

; 5 

ft i: 

; 1 

3 8 1 

: ¥ 09 1! * 
; Ww 010 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 011 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \¢ Og : :* ALL RIGHTS RESERVED. a. 
ee | 014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
i 7S Bet? 1 !* ONLY IN ACCORDANCE WITH T ERMS OF SUCH LICENSE AND WITH THE * 
; BI8 ? !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
‘.. OF 0017 1 !* COPIES THEREOF MAY NOT BE VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:- we 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 13 adh : it TRANSFERRED. : 
: $3 63s) 1 !* THE INFORMATION IW THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 2 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: Si O05z : :* CORPORATION. - 
3 $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $8 88 $ ; :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
5; ae 0028 1 !# * 
3 $3 ot 94 1 Lee eR RARER RARER AERA AEE A AAA AAA AAA RARER RAREREEEE 
: 0 0030 1 

3 H 0031 1 !+¢ 

3 g ott) 1! 

3; Cf O08 1! FACILITY: 

; # 0034 1! ‘ Cy 

; HH ste : DCX == Data Compression / Expansion Facility 

; $ 0037 1! ABSTRACT: 

3 8 0038 1! 

ie, 0039 1! The Data Compression / Expansion procedures provide a general 

3 ry sre : method for reducing the storage requirement for a arbitrary data. 

s 2 0042 1 ! ENVIRONMENT: 

; «643 0045 1! 

; «6446 ng: 77 VAX native, user mode. 

2 BET 

3: (47 Boe? yi 

: 6448 Bne8 1! 

: $3 gts ' : AUTHOR: David Thiel 

> Boe) 1 ! CREATION DATE: July, 1981 

; 25 O26 1! 

; > 0055 1 ! MODIFIED BY: 

; | «34 0054 1! 

s $5 0055 1 !-- 


3 
R 


2 V4. 
:CDCx 


0-74 
OSRCISUBS.832;1 
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Acces f 93742368 VAX-11 Bliss-32 V4.0-74 Page 2 
14-Se : 


Oe =p NBS 


v04 Declarations -Sep-1984 16:03 DISKSVMSMASTER: COCX.SRCJSUBS.832;1 (2) 
3 3 § ! ZSBTTL ‘Declarations’; 

; 53 j : emi. $lib tarlet ! Syst 

3 sys rary:starlet’; ! System macros 

3; 8} 060 1 REQUIRE 

: 6¢ on ‘prefix’; ! DCX macro definitions 

; 6 ' 1 REQUIRE 

; 64 i. ‘dexdef'; ! DCX public structure definitions 
3; 6 99 1 REQUIRE 

3 68 Babe ! "dcxprvdef'; ! DCX private structure definitions 
3 08 ef 1 EXTERHAL ROUTINE 

; ¢ 04 3 1 b$free_vm : eer SING MODE (GENERAL), 

3 A! 94 34 : Lib$get_¥m : ADDRESSING O RODE (GENERAL) ; 

ee 471 1 oop o LITERAL 

3 7 tts 1 dcx$_invctx, ' Invalid context block 

s 7% 73° «1 dcx$_ seme i Invalid map 

Fe 0474 1 dcx$_norma 

: 0475 1 

3 77 0476 1 FORWARD ROUTINE 

oe 0477 «1 dcx$get_vm, ! Allocate memory 

; 79 478 1 dexs reé_vm, i Deallocate memory 

; 80 0479 1 dcx$map_Theck : Lkg_map_check, ' Check map 

; 8 0480 1 dex$ctx_check : Lkg_ctx_check, ' Check context 

3.60 (Ge 0481 +1 dcx$long_move : lkg_ tong, move NOVALUE; ! Arbitrary length data copy 


16 
sues 1$-sep-19 4 $3:43:48 VAX-11 BLliss-32 get os Page 3 
dcx$get_vm == allocate virtual memory 14-Sep-1984 12:16:03 DISKSVMSMASTER: CDOCX.SRCJSUBS.832;1 (3) 
; : : ¢ ! ZSBTTL ‘dcx$get_vm -- allocate virtual memory’ 
; : 4, GLOBAL ROUTINE dcx$get_vm (bytes, addr) = 
; 88 ise ee 
: 89 rh] i 
5 4 3 ! Allocate memory for the data compression / expansion 
: 4 ri ; facility. The allocated memory is zeroed. 
; $8 431 Inputs: 
3 32 ht bytes Number of bytes to allocate 
; 44 495 Outputs: 
: 99 te9 i addr Address in which to store addr 
3 19 rps } of allocated memory 
: 108 9500 Return value: 
: 104 a4 ' dcx$_normal ALL is well 
; 105 50 : LibS_insvirmem Error allocation memory 
3 198 0504 lan 
BEES vocn 
; 199 0307 Pp. ! pointer for zeroing memory 
; 110 508 S. ! conor byte count 
; 13 F484 status : LONG; ' return status 
; 118 O311 If bytes EOL 0 
> 115 §318 BEGIN 
; 116 0514 addr = 0; 
3 a4 B21? RETURN dcx$_normal; 
> 119 §a17 ELSE IF NOT (status = Lib$Sget_vm (bytes, .addr)) 
3 139 g218 THEN 
: 121 519 BEGIN 
3 \s¢ 0520 addr = 0; 
: le B2 1 RETURN .status; 
i 188 0253 2 ELSES 
> 126 0524 BEGIN 
: 127 82 5 p = ..addr; 
; 128 5 $ c = .bytes; 
; 180 iF ti WHILE .c GTRU 2X"FFFF* DO 
> 131 529 4 p = CHSFILL (0, SX'FFFF*, .p); 
: 138 3 9 4 Ls as UX'FFFFS; 
> 1 6 é CHSFILL' (0, .c, -p) 
: 135 5 RETURN dcx$_normal; 
3 136 534 END; 
3 95 535 END; ! of dcx$get_vm 


-TITLE DCX, 5UBS 


3; Routine Size: 


00 


00 


80 bytes, 


007C¢ 000 
04 og DS 0000 
05 1 $38 

08 + D4 00 
C 11 QOOOA 
8 AC DD 0000C 
090000006 00 oe He 0045 
04 56 EB 00019 
08 BC 04 0001C 
04 Bonen 
53 08 BC 00 00020 
56 04 AC 00 00024 
QOOOFFFF 8F 56 D1 00028 
11 1B 0002F 
6E 00 2C 00031 
63 0038 
56 FFFFOOO1 £6 7 0039 
E6 11 00040 
6E 44 2€ 00042 
6 00047 
50 000000006 8F D0 00048 
04 0004F 


Routine Base: $CODE$ + 0000 


w nM = 
b ad 


uw SS 
wn 


oem 


wr 


1984 23:43:44 VAX-11 Bliss-32 V4.0 
O71 984 13:48:63 DISKSVMSMASTER:COCX. 
IDENT \v04-000\ 
EXTRN LIBSANALYZE_SDESC_R2 
-EXTRN LIBSFREE_VM, LIBSGET VM 
«EXTRN DCXS_INVETX, DCXS$_INUMAP 
«EXTRN DCXS$~NORMAL 
-PSECT $CODE$,NOWRT,2 
sENTRY DCXSGET_VM, Save R2,R3,R4,R5,R6 
TSTL BYTES 
BNEQ 1$ 
CLRL @ADDR 
BRB 5$ 
PUSHL ADDR 
PUSHAB BYTES 
CALLS #2, LIBSGET_VM 
BLBS TATUS, 2$ 
CLRL DDR 
RET 
MOVL @ADDR, P 
MOVL BYTES § 
CMPL 6 C, - #65535 
BLEQU 
MOVCS #0, (SP), #0, #65535, (P) 
A -65535(R6), C 
MOvVCS #0, (SP), #0, C, (P) 
MOVL #DCXS_NORMAL, RO 
RET 


ify 
SRC JSUBS .832;1 


Page ‘ 6 


3) 


DCX $ 
yOu2000 dcx$free_vm -- free virtual memory 14-Sep-19 


; 


a a ed ae ad ed ed wd od = dd wd 
VEWN 0 OONOUES WN “OO OANAUE WROD 


PR AS LE AN ey Stee a A A 
MEW OOONO USWA SOOO NAOUS WN —O 


on 


15-Sep-1984 $3:4 


1 ZSBTTL ‘dex$free_vm -- free virtual memory’ 
1 st oon ROUTINE dcx$free_vm (bytes, addr) = 


BE 

ted 

i Free memory for the data compression / expansion 
facility. 

| Inputs: 

i bytes Number of bytes to free 
: addr Address of block to free 
Outputs: 

; NONE 

Return value: 

i dex$_normal ALL is well 
Lib$_insvirmem Error allocating memory 


IF .bytes NEQ 0 
THEN 


porters (Lib$Sfree_vm (bytes, addr)); 
RETURN dcx$_normal; 


1 END; ! of dcx$free_vm 
0000 00000 -ENTRY 
04 AC 05 st TL 
10 13 0000 QL 
08 AC 9F 00007 PUSHAB 
04 AC 9F QOOOA PUSHAB 
000000006 00 96 FB 00000 CALLS 
of 50 €9 00014 BLBC 
0 000000006 8F D0 00017 1$: MOVL 
04 OOO1E 2$: RET 


; Routine Size: 31 bytes, Routine Base: S$CODE$ + 0050 


3768 VAX-11 Bliss-32 V4.0 
6:0 R 


DISKSVMSMASTER: (DCX 


DCXSFREE_VM, Save nothing 
BYTES 

ADDR 

BYTES 

#2, LIBSFREE_VM 

STATUS, 

#DCX$_NORMAL, RO 


sned 
- SRC JSUBS .832;1 


Page 
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vw 
oo 
Vw 


(4 


5 
) 


0538 
0560 


0562 


15-8851 


4 23:43:44 VAX-11 Bliss-32 V4.0-74 fa 
dcx$ctx_check <= check context block 127808-1 382 93:43:64 ST EKSUMGMASTER COCK Sac SsuBs.832;1 a (sf 
; 179 i 1 ZSBTTL ‘dexSctx_ check == check context block’ 
: 17 1 GLOBAL ROUTINE dcxSctx_check (ctx : REF BBLOCK, type) : Lkg.ctx_check = 
: 8 63 BEGIN - “ atti 
s 176 9 'e4 
: HR +) 9 | creck content block for weltet 
3 ! Check contex ock for va ty. 
i OBA, 
: : Inputs: 
: 145 he EB See 
; 180 0 76 } ctx Address of context block 
‘ 18¢ 7 H type Required context block type 
: 18 57 ' Outputs: 
3; «184 580 ! 
: 185 581 ! NONE 
3; 186 5 $ ! 
3; 187 58 ' Return value: 
; «4188 584 ! 
; 189 0585 : dcx$_normal ALL is well 
; 190 0586 } dcx$_invctx Invalid context block 
; «6191 £3 44 ‘ dcx$_invmap Invalid map 
3 13¢ age leo 
3; 9 0589 
3 194 R230 IF .ctx Cetx$l_size) LSSU ctx$k_fixed_len 
3 «195 591 THEN 
3; 196 8236 RETURN dcx$_invctx 
: 197 059 ELSE IF .ctx Cc€x$l_sanity] NEQ ctx$c_sanity 
; 4198 0594 TH 
3; 199 0595 RETURN dcx$_invctx 
; 290 0396 ELSE IF .ctx Ccfx$w_version] NEQ ctx$c_version 
: 201 059 THEN 
3 a4 0598 RETURN dcx$_invctx 
: it 329. ELSE IF .ctx Cctx$b_type] NEQ .type 
3 6402 0601 RETURN dcx$_invctx 
: 206 Bene ELSE 
; 207 060 RETURN dcx$_normal; 
: 208 0604 
; 209 0605 1 END; ! of dcex$ctx_check 
14 60 D1 00000 DCXSCTX_CHECK:: 
CMPL (CTX), #20 ; 0590 
17 1F 0000 BLSSU-‘'1$ 3 
4F317C65 ~—s BF 0c Ad D1 0000 CMPL 12(CTX), 41328643173 3 0593. 
0D 1 0000 BNEQ 1$ é 
08 AO B85 QO00F TSTwW 8(CTX) 3; 0596 
08 1 12 BNEQ 1$ : 
51 04 AO 08 2 ‘ 14 CMPZV) «#0, #8, 4(CTX), TYPE ; 0599 
1A BEQL $ 3 
50 00000000G 8F 4 16 18: move #DCXS_INVCTX, RO ; 0601 
50 00000000G 8F D $05 23: MOVL #OCX$_NORMAL, RO ; 0603 


SS 


16 
DCX $s 18-56 $1984 23:43:4 VAX-11 Bliss-32 V4.0-74 Pa 7 
voez000 dcx$ctx_check == check context block 12280571386 93348508 DL SKSVMGMASTERSLDCX SRCISUBS.B32; 1 - (5) 
05 00028 RSB ; 0605 
; Routine Size: 44 bytes, Routine Base: S$CODES + O06F 


3; Routine Size: 


a-Si 


SESE S YSU RN NNNNNNS 3335555 
MEW OO DDNAUBWN OC ODNOUEWNAOODNOULWNS 


Ronononononory 


16 
15-Se =1984 25:43:46 VAX-11 Bliss-32_ V4.0-74 
dcx$map check == check map 127351 98e 13:18:63 DISKSVMSMASTER: CDOCX.SRCJSUBS.832;1 
! ZSBTTL ‘dcxSmap_check -- check map‘ 


scent ROUTINE dcex$map_check (dcxmap : REF BBLOCK) : Lkg_map_check = 


5 
6 
61 '+¢ 
61 i 
2 Check map for validity. 
oie Inputs: 
1 dcxmap Address of map 
ei Outputs: 
be 0 i NONE 
621 i 
06 ¢ i Return value: 
06 i 
0624 i décx$_normal ALL is well 
0625 i dcx$_invmap Invalid map 
pose I 
80 3 IF .dcxmap Cdcxmap$l_size] LSSU dcxmap$k_length 
0630 RETURN dcx$_invmap 
+ 1 FUSE IF .dcxmap” CdexmapSt_ sanity] NEQ dcxmap$c_sanity 
be3$ RETURN dcx$_invmap 
0635 ELSE IF wor hn tdcunapse.. version] NEQ dcxmap$c_version 
0636 RETURN dcx$_i 
0657 3 ELse iin pine 
0638 RETURN dcx$_normal; 
0639 
0640 END; ! of dcx$map_check 
14 60 D1 00000 DCXSMAP_ ape 
* (DCXMAP), #20 
OF 1F 00003 BLSsu 1$ 
SBFSA3A7 —s BFF 08 ad 0D! B80? CMPL S(DCXMAP), #1542824871 
05 12 00000 BNEQ 1$ 
04 AO 65 0000F TSTW 4 (DCXMAP) 
08 13 00012 BEQL 2$ 
50 00000000G_ 8F t Bpoi6 1$: MOVL W#OCXS_INVMAP, RO 
05 00018 RSB 
50 00000000G_ 8&F bY Bods 23: MOVL #DCXS_NORMAL, RO 
002 RSB 


36 bytes, Routine Base: S$CODES + 0098 


Page 
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0628 
0631 
0634 
0636 


0638 
0640 


16 
DCX_SUBS 4.58 $1984 23:43:44 VAX-11 Bliss<52 V4.0-74 P 9 
vous dcx$long_move <= long data copy 12-86-1984 #3348568 DISK SVMSMASTERSCDCK. SRCISUBS.B32: 1 oe (7) 


; of eh 1 ZSBTTL ‘dcx$long_move -- Long data copy’ 
s 2 rk 1 GLOBAL ROUTINE dcx$long_move (size, source, target) : Lkg_long_move NOVALUE = 
3 0 644 BEGIN 
; 1 645 e+ 
3 ¢ o68 ! 
3 z oe Copy arbitrary sized block of data. 
; 56 3 H Inputs: 
; 651 ! size Length of data to co 
s 8 O26 ! source hadtess of date to cony 
3 9 6 : target Address of destination 
: $e ee 2 a 
° ° utputs: 
; 26 0656 ‘ 
3 2 065 ! NONE 
: 264 3938 ' 
: 265 065 ' Return value: 
; 266 0660 ! 
; 267 0661 ' NONE 
; 268 066 loo 
; 269 066 
; 270 0664 BUILTIN 
: z poze movc3; 
4 ig 066 WHILE .size GTRU XX'FFFF* DO 
3 74 0668 BEGIN 
He HE toen 
3: e7 0671 dummy0, 
i oat 
; 280 0674 move (ZREF(ZX'FFFF*), .source, .target; dummy0, source, dummy2, target); 
3 281 067 size = .size - UX'FFFF’: 
; see 0676 § END; 
; 28 0677 CHSMOVE (.size, .source, .target); 
3 see 0678 § RETURN; 
: 285 0679 
; 286 0680 1 END; ! of dcx$long_move 
0078 8F 8B 00000 DCXSLONG poe 
PUSHR #*M<R3,R4,R5,R6> ; 0643 
53 3 4 0004 MOVL R2, R3 3 
56 2 DO 00007 MOVL RO, R6 ; 
OOOOFFFF  &F 6 01 QO0A 1$: CMPL 12E, #65535 > 0667 
18 0011 pu eoy $ 3 
63 $1 FFFF F § 0013 vc #63333 (SOURCE), (TARGET) 3: 0674 
6 FFFFOOO1 ES H 19 ROVAB 7$° (r6), SIZE : 9675 
63 61 5s 28 : 2s: MOVCS SIZE, (SOURCE), (TARGET) : 0677 
0078 «BF BA 09 ; POPR #°M<R3,R4,R5,RO> > 0680 


VAX-11 Bliss-32 V4.0-7: Page 


Sep-1984 23:43:44 10 
73057138 13:18:68 DISKSVMSMASTER: (DCX. sae SUBS .B32;1 (7) 


DCX_SUBS 1 
yOu2000 dcx$long_move == long data copy 1 


; Routine Size: 43 bytes, Routine Base: S$CODE$S + O0BF 


r 


Ce 


DCX S 1.98 1984 23:43:44 X-11 ss-32 V 

vo2000 srt move == long data copy 14-Sep-1986 ; :16:03 SK$V mt STER: tbe i Ske4suss 032: 31 
88 6 ! Of module d b 

: $85 bee? 0 ELUDOM ee ee 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 234 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


sueqesne FyYEROLS seeesese Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SUBS/OBJ=OBJ$:SUBS MSRC$:SUBS/UPDATE=(ENH$: SUBS) 


Size: 234 code + 0 data bytes 
Run Time 00: 3-¢ 

Slaseed Tteer 00:33.5 

Lines/CPU Min: 4854 

Zonenee/ Parties 26911 


penser © Used: 76 pages 
Compilation Complete 
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